home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / jump.module < prev    next >
Text File  |  1996-09-18  |  149b  |  15 lines
  1. MODULE Jump;
  2.  
  3. VAR
  4.   yPos : NUMBER;
  5.  
  6. ITEMBAR;
  7.  
  8. ITEM $item1_1 "G"
  9.   IF GetNumber($text1,_yPos,yPos) THEN
  10.     Goto([_xPos,yPos])
  11.   END;
  12. END;
  13.  
  14. END Jump.
  15.